/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Example Projects / Techniques / Examples by Thomas Tempelmann / FinderAppleEvents

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 06 4d 6f 64 75 6c 65 11 | 46 69 6e 64 65 72 41 70 |.Module.|FinderAp|
|00000010| 70 6c 65 45 76 65 6e 74 | 73 10 80 02 9b 0e 92 0a |pleEvent|s.......|
|00000020| 07 00 11 46 69 6e 64 65 | 72 41 70 70 6c 65 45 76 |...Finde|rAppleEv|
|00000030| 65 6e 74 73 18 00 00 00 | 05 12 52 65 76 65 61 6c |ents....|..Reveal|
|00000040| 49 74 65 6d 49 6e 46 69 | 6e 64 65 72 0f 66 20 61 |ItemInFi|nder.f a|
|00000050| 73 20 46 6f 6c 64 65 72 | 49 74 65 6d 00 00 03 00 |s Folder|Item....|
|00000060| 05 03 07 27 53 75 62 20 | 52 65 76 65 61 6c 49 74 |...'Sub |RevealIt|
|00000070| 65 6d 49 6e 46 69 6e 64 | 65 72 28 66 20 61 73 20 |emInFind|er(f as |
|00000080| 46 6f 6c 64 65 72 49 74 | 65 6d 29 11 44 69 6d 20 |FolderIt|em).Dim |
|00000090| 6f 6b 20 61 73 20 42 6f | 6f 6c 65 61 6e 81 01 6f |ok as Bo|olean..o|
|000000a0| 6b 20 3d 20 73 65 6e 64 | 49 74 65 6d 41 45 20 28 |k = send|ItemAE (|
|000000b0| 22 6d 69 73 63 22 2c 20 | 22 6d 76 69 73 22 2c 20 |"misc", |"mvis", |
|000000c0| 22 4d 41 43 53 22 2c 20 | 66 29 20 2f 2f 20 6b 41 |"MACS", |f) // kA|
|000000d0| 45 4d 61 6b 65 49 74 65 | 6d 56 69 73 69 62 6c 65 |EMakeIte|mVisible|
|000000e0| 0e 69 66 20 6e 6f 74 20 | 6f 6b 20 74 68 65 6e 2a |.if not |ok then*|
|000000f0| 27 4d 73 67 42 6f 78 20 | 22 4f 6f 70 73 2c 20 52 |'MsgBox |"Oops, R|
|00000100| 65 76 65 61 6c 20 66 61 | 69 6c 65 64 20 75 6e 65 |eveal fa|iled une|
|00000110| 78 70 65 63 74 65 64 6c | 79 22 03 65 6e 64 07 45 |xpectedl|y".end.E|
|00000120| 6e 64 20 53 75 62 12 55 | 70 64 61 74 65 49 74 65 |nd Sub.U|pdateIte|
|00000130| 6d 49 6e 46 69 6e 64 65 | 72 0f 66 20 61 73 20 46 |mInFinde|r.f as F|
|00000140| 6f 6c 64 65 72 49 74 65 | 6d 00 00 09 01 09 01 0c |olderIte|m.......|
|00000150| 27 53 75 62 20 55 70 64 | 61 74 65 49 74 65 6d 49 |'Sub Upd|ateItemI|
|00000160| 6e 46 69 6e 64 65 72 28 | 66 20 61 73 20 46 6f 6c |nFinder(|f as Fol|
|00000170| 64 65 72 49 74 65 6d 29 | 12 44 69 6d 20 65 72 72 |derItem)|.Dim err|
|00000180| 20 61 73 20 49 6e 74 65 | 67 65 72 11 44 69 6d 20 | as Inte|ger.Dim |
|00000190| 6f 6b 20 61 73 20 42 6f | 6f 6c 65 61 6e 00 3d 6f |ok as Bo|olean.=o|
|000001a0| 6b 20 3d 20 73 65 6e 64 | 49 74 65 6d 41 45 20 28 |k = send|ItemAE (|
|000001b0| 22 66 6e 64 72 22 2c 20 | 22 66 75 70 64 22 2c 20 |"fndr", |"fupd", |
|000001c0| 22 4d 41 43 53 22 2c 20 | 66 2e 50 61 72 65 6e 74 |"MACS", |f.Parent|
|000001d0| 29 20 2f 2f 20 6b 41 45 | 53 79 6e 63 0a 69 66 20 |) // kAE|Sync.if |
|000001e0| 6f 6b 20 74 68 65 6e 36 | 6f 6b 20 3d 20 73 65 6e |ok then6|ok = sen|
|000001f0| 64 49 74 65 6d 41 45 20 | 28 22 66 6e 64 72 22 2c |dItemAE |("fndr",|
|00000200| 20 22 66 75 70 64 22 2c | 20 22 4d 41 43 53 22 2c | "fupd",| "MACS",|
|00000210| 20 66 29 20 2f 2f 20 6b | 41 45 53 79 6e 63 03 65 | f) // k|AESync.e|
|00000220| 6e 64 0e 69 66 20 6e 6f | 74 20 6f 6b 20 74 68 65 |nd.if no|t ok the|
|00000230| 6e 2a 27 4d 73 67 42 6f | 78 20 22 4f 6f 70 73 2c |n*'MsgBo|x "Oops,|
|00000240| 20 55 70 64 61 74 65 20 | 66 61 69 6c 65 64 20 75 | Update |failed u|
|00000250| 6e 65 78 70 65 63 74 65 | 64 6c 79 22 03 65 6e 64 |nexpecte|dly".end|
|00000260| 07 45 6e 64 20 53 75 62 | 0a 73 65 6e 64 49 74 65 |.End Sub|.sendIte|
|00000270| 6d 41 45 39 73 31 20 61 | 73 20 53 74 72 69 6e 67 |mAE9s1 a|s String|
|00000280| 2c 20 73 32 20 61 73 20 | 53 74 72 69 6e 67 2c 20 |, s2 as |String, |
|00000290| 73 33 20 61 73 20 53 74 | 72 69 6e 67 2c 20 66 20 |s3 as St|ring, f |
|000002a0| 61 73 20 46 6f 6c 64 65 | 72 49 74 65 6d 07 42 6f |as Folde|rItem.Bo|
|000002b0| 6f 6c 65 61 6e 01 0c 0c | 0c 0c 0e 99 01 46 75 6e |olean...|.....Fun|
|000002c0| 63 74 69 6f 6e 20 73 65 | 6e 64 49 74 65 6d 41 45 |ction se|ndItemAE|
|000002d0| 28 73 31 20 61 73 20 53 | 74 72 69 6e 67 2c 20 73 |(s1 as S|tring, s|
|000002e0| 32 20 61 73 20 53 74 72 | 69 6e 67 2c 20 73 33 20 |2 as Str|ing, s3 |
|000002f0| 61 73 20 53 74 72 69 6e | 67 2c 20 66 20 61 73 20 |as Strin|g, f as |
|00000300| 46 6f 6c 64 65 72 49 74 | 65 6d 29 20 41 73 20 42 |FolderIt|em) As B|
|00000310| 6f 6f 6c 65 61 6e 14 44 | 69 6d 20 61 65 20 61 73 |oolean.D|im ae as|
|00000320| 20 41 70 70 6c 65 45 76 | 65 6e 74 1e 44 69 6d 20 | AppleEv|ent.Dim |
|00000330| 6c 69 73 74 20 61 73 20 | 41 70 70 6c 65 45 76 65 |list as |AppleEve|
|00000340| 6e 74 44 65 73 63 4c 69 | 73 74 1b 69 66 20 46 69 |ntDescLi|st.if Fi|
|00000350| 6e 64 65 72 53 75 70 70 | 6f 72 74 73 4f 53 4c 28 |nderSupp|ortsOSL(|
|00000360| 29 20 74 68 65 6e 1f 61 | 65 20 3d 20 4e 65 77 41 |) then.a|e = NewA|
|00000370| 70 70 6c 65 45 76 65 6e | 74 20 28 73 31 2c 20 73 |ppleEven|t (s1, s|
|00000380| 32 2c 20 73 33 29 11 69 | 66 20 61 65 20 3c 3e 20 |2, s3).i|f ae <> |
|00000390| 6e 69 6c 20 74 68 65 6e | 1d 6c 69 73 74 20 3d 20 |nil then|.list = |
|000003a0| 4e 65 77 20 41 70 70 6c | 65 45 76 65 6e 74 44 65 |New Appl|eEventDe|
|000003b0| 73 63 4c 69 73 74 19 6c | 69 73 74 2e 41 70 70 65 |scList.l|ist.Appe|
|000003c0| 6e 64 46 6f 6c 64 65 72 | 49 74 65 6d 20 28 66 29 |ndFolder|Item (f)|
|000003d0| 1f 61 65 2e 44 65 73 63 | 4c 69 73 74 50 61 72 61 |.ae.Desc|ListPara|
|000003e0| 6d 28 22 2d 2d 2d 2d 22 | 29 20 3d 20 6c 69 73 74 |m("----"|) = list|
|000003f0| 0e 72 65 74 75 72 6e 20 | 61 65 2e 53 65 6e 64 03 |.return |ae.Send.|
|00000400| 65 6e 64 03 65 6e 64 0c | 72 65 74 75 72 6e 20 66 |end.end.|return f|
|00000410| 61 6c 73 65 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |alse.End| Functio|
|00000420| 6e 11 46 69 6e 64 65 72 | 53 75 70 70 6f 72 74 73 |n.Finder|Supports|
|00000430| 4f 53 4c 00 07 42 6f 6f | 6c 65 61 6e 00 05 1c 05 |OSL..Boo|lean....|
|00000440| 1c 07 27 46 75 6e 63 74 | 69 6f 6e 20 46 69 6e 64 |..'Funct|ion Find|
|00000450| 65 72 53 75 70 70 6f 72 | 74 73 4f 53 4c 28 29 20 |erSuppor|tsOSL() |
|00000460| 41 73 20 42 6f 6f 6c 65 | 61 6e 10 44 69 6d 20 6c |As Boole|an.Dim l|
|00000470| 20 61 73 20 49 6e 74 65 | 67 65 72 25 69 66 20 6e | as Inte|ger%if n|
|00000480| 6f 74 20 53 79 73 74 65 | 6d 2e 47 65 73 74 61 6c |ot Syste|m.Gestal|
|00000490| 74 28 22 66 6e 64 72 22 | 2c 20 6c 29 20 74 68 65 |t("fndr"|, l) the|
|000004a0| 6e 05 6c 20 3d 20 30 03 | 65 6e 64 1c 72 65 74 75 |n.l = 0.|end.retu|
|000004b0| 72 6e 20 42 69 74 77 69 | 73 65 41 6e 64 28 6c 2c |rn Bitwi|seAnd(l,|
|000004c0| 20 38 29 20 3c 3e 20 30 | 0c 45 6e 64 20 46 75 6e | 8) <> 0|.End Fun|
|000004d0| 63 74 69 6f 6e 12 42 72 | 69 6e 67 46 69 6e 64 65 |ction.Br|ingFinde|
|000004e0| 72 54 6f 46 72 6f 6e 74 | 00 00 00 09 03 09 03 0b |rToFront|........|
|000004f0| 18 53 75 62 20 42 72 69 | 6e 67 46 69 6e 64 65 72 |.Sub Bri|ngFinder|
|00000500| 54 6f 46 72 6f 6e 74 28 | 29 11 44 69 6d 20 6f 6b |ToFront(|).Dim ok|
|00000510| 20 61 73 20 42 6f 6f 6c | 65 61 6e 14 44 69 6d 20 | as Bool|ean.Dim |
|00000520| 61 65 20 61 73 20 41 70 | 70 6c 65 45 76 65 6e 74 |ae as Ap|pleEvent|
|00000530| 3a 61 65 20 3d 20 4e 65 | 77 41 70 70 6c 65 45 76 |:ae = Ne|wAppleEv|
|00000540| 65 6e 74 20 28 22 6d 69 | 73 63 22 2c 20 22 61 63 |ent ("mi|sc", "ac|
|00000550| 74 76 22 2c 20 22 4d 41 | 43 53 22 29 20 2f 2f 20 |tv", "MA|CS") // |
|00000560| 6b 41 45 41 63 74 69 76 | 61 74 65 11 69 66 20 61 |kAEActiv|ate.if a|
|00000570| 65 20 3c 3e 20 6e 69 6c | 20 74 68 65 6e 0c 6f 6b |e <> nil| then.ok|
|00000580| 20 3d 20 61 65 2e 53 65 | 6e 64 03 65 6e 64 0e 69 | = ae.Se|nd.end.i|
|00000590| 66 20 6e 6f 74 20 6f 6b | 20 74 68 65 6e 2c 27 4d |f not ok| then,'M|
|000005a0| 73 67 42 6f 78 20 22 4f | 6f 70 73 2c 20 41 63 74 |sgBox "O|ops, Act|
|000005b0| 69 76 61 74 65 20 66 61 | 69 6c 65 64 20 75 6e 65 |ivate fa|iled une|
|000005c0| 78 70 65 63 74 65 64 6c | 79 22 03 65 6e 64 07 45 |xpectedl|y".end.E|
|000005d0| 6e 64 20 53 75 62 00 00 | 00 00 00                |nd Sub..|...     |
+--------+-------------------------+-------------------------+--------+--------+